proc p_drawgrid (win : int)
    Window.Select (win)
    % Simple line drawing loop to make the grid.
    Pic.ScreenLoad ("watex.bmp", 0, 0, picCopy)
    for it : 1 .. 10
	Draw.Line (it * 20, 0, it * 20, maxy, 1)
	Draw.Line (0, it * 20, maxx, it * 20, 1)
    end for
end p_drawgrid
